#!/src/bin/perl -w

#lire le nom de fichier à copier
print "Donner le nom du fichier à copier \n";
$nom_fichier1 = <>;
if (!$nom_fichier1)
{
	$nom_fichier1 = "essais.txt"
}
open (FILEIN, "$nom_fichier1");

#lire le nom de fichier qui doit contenir la copie
print "Donner le nom du fichier qui doit contenir la copie \n";
$nom_fichier2 = <>;
if (!$nom_fichier2)
{
	$nom_fichier2 = "copie.txt"
}
open (FILEOUT, ">$nom_fichier2");

# Lire le fichier à copier et écrire son contenu dans le fichier cible
while ($ligne=<FILEIN>) 
{
 print FILEOUT $ligne;
}
close FILEOUT;

#Lire et afficher le contenu du fichier cible
open (FILEINCOPIE,$nom_fichier2);
while ($ligne = <FILEINCOPIE>) 
{
	print "ligne $. : $ligne";
}
close FILEINCOPIE;